home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_B.d64 / rhea gme (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  8KB  |  105 lines
  1. 19 ifa=0thena=1:load"rhea msc",8,1
  2. 29 poke808,225:poke53280,11:poke53281,11:print"[147][142]":x=-1:x=-1:z=11:gosub39:x=-1:z=9:gosub39:x=-1:z=6:gosub39:x=-1:z=5:gosub39:x=-1:z=3:gosub39:x=-1:z=0:gosub39:gosub59:goto69
  3. 39 x=x+1:gosub59:print""tab(x)"[180]":printtab(x)"[180]":printtab(x)"[180]":gosub59:print""tab(x)"[212]":printtab(x)"[212]":printtab(x)"[212]":gosub59:print""tab(x)"[194]":printtab(x)"[194]":printtab(x)"[194]":gosub59:ifx=zthenreturn
  4. 49 print""tab(x)"[200]":printtab(x)"[200]":printtab(x)"[200]":gosub59:print""tab(x)"[217]":printtab(x)"[217]":printtab(x)"[217]":gosub59:print""tab(x)"[170]":printtab(x)"[170]":printtab(x)"[170]":print""tab(x)" ":printtab(x)" ":printtab(x)" ":goto39
  5. 59 forxe=1to10:nextxe:return
  6. 69 print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[198]":gosub59:print"[210]":gosub59:print"[175]":gosub59:print" ":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59
  7. 79 print"[198]":gosub59:print"[210]":gosub59:print"[175]":gosub59:print" ":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[198]":gosub59:print"[210]":gosub59:print"[175]":gosub59:print" ":gosub59:print"[183]":gosub59
  8. 89 print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[198]":gosub59:print"[210]":gosub59:print"[175]":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[198]":gosub59:print"[210]":gosub59:print"[175]":gosub59
  9. 99 print" ":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[183]":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[198]":gosub59:print"[210]":gosub59:print"[175]":gosub59
  10. 109 print" ":gosub59:print"[183]":gosub59:print"[197]":gosub59:print"[196]":gosub59:print"[195]":gosub59:print"[183]":gosub59:print"[205]":print"[206]":print"[205]":poke56325,0:print"","(w) 1997 by jtr":gosub1009:poke56325,56:forx=1to500:next
  11. 119 print"(a)nleitung":print"(s)piel beginnen":print"wie lautet deine wahl?";
  12. 129 geta$:ifa$=""then129
  13. 139 ifa$="a"then169
  14. 149 ifa$="s"then249
  15. 159 goto129
  16. 169 print"[147]            rhea - anleitung            ":print"im jahre 2367 begann der krieg zwischen":print"der erde und ihren ehemaligen interpla-":print"netarischen kolonien auf den saturntra-":print"banten. auf rhea, titan und japetus wur-";
  17. 179 print"den naemlich tief im gestein grosse men-";:print"gen an gebundenen sauerstoff entdeckt.":print"die erde, die nur noch knappe ressourcen";:print"von der doch so wichtigen atemluft be-":print"sass, versuchte mit allen mitteln herr"
  18. 189 print"ueber die drei abtruennigen satelliten"
  19. 190 print"zu werden. dieser krieg entschied sich"
  20. 191 print"jedoch zugunsten der verteidiger."
  21. 192 print"rhea, titan und japetus gruendeten eine"
  22. 193 print"konfoederation, die das gesamte saturn-"
  23. 199 print"areal einbeschloss. 18 jahre spaeter ge-";:print"schah das unglueck: ein meteor schlug":print"auf rhea ein, zerstoerte einen grossteil";:print"der fabrikanlagen und brachte tausenden":print"von kolonialisten den tod.":gosub979
  24. 209 print"[147]            rhea - anleitung           [146]":print"so wurde der einst reiche konfoedera-":print"tionspartner zu einem ort der armut und":print"anarchie. da ein wirtschaftlicher unter-";:print"gang rheas sich schaedlich auf die ge-"
  25. 219 print"samte saturn-konfoederation auswirken":print"wuerde, schickt man dich - einen gebuer-";:print"tigen titanier - zu rhea, damit du als":print"praesident den wiederaufbau der produk-":print"tionsanlagen organisierst.":print"man gewaehrt dir zehn perioden (das sind";
  26. 229 print"ca. viereinhalb irdische jahre) an zeit,";:print"um aus rhea wieder den wichtigen wirt-":print"schaftsfaktor der konfoederation zu ma-":print"chen, der er einmal war.":print"solltest du es in der zeit nicht schaf-":print"fen, oder sollten kontrarevolutionaere"
  27. 239 print"rebellen deine herrschaft stuerzen, so":print"wird man einen neuen praesidenten waeh-":print"len und dich wieder nach titan schicken.":gosub979
  28. 249 sys32768:poke53280,0:poke53281,0
  29. 259 print"[147][146]ein neues spiel beginnt...":forx=1to1500:next:l1$="[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]":l2$="[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][219][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":l3$="[194]                    [194]                 [194]"
  30. 269 l4$="[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":p=5000:m=2000000:f=5000:t=10:z$=chr$(34):gosub859:t=11:goto289
  31. 279 gosub859
  32. 289 ift<2then769
  33. 299 print"[147]     der beginn einer neuen periode     [146]":t=t-1:x=-1:print"wieviel von dem budget fuehren sie ihrem";
  34. 309 input"[145]eigenem vermoegen zu";x:ifx<0then309
  35. 319 m=m-x:r=r+x:print"ihr privatvermoegen belaeuft sich jetzt also auf"r"credits.":gosub979:ifr>=((rnd(8)*3)-1)*mthengosub899
  36. 329 print"[147]       bericht aus den werkhallen       ":a=int(rnd(3)*3)+1:ifa=1thenprint"es wurden mehr sauerstoffeinheiten her-"
  37. 339 ifa=1thenprint"gestellt als erwartet.":goto359
  38. 349 print"die menge der hergestellten sauerstoff-":print"einheiten ist zufriedenstellend."
  39. 359 ifa=1thenf=f+2000:p=p+5000:m=m+10000
  40. 369 ifa=2thenx=-1:print"es werden dringend raumtransporter be-"
  41. 379 ifa=2thenprint"noetigt. kosten: 10000 credits pro ein-"
  42. 389 ifa=2thenprint"heit. wieviele transporter wollen sie"
  43. 399 ifa=2theninput"[145]anschaffen";x:f=500*x:ifx<0then399
  44. 409 ifa=2andx>0thenm=m-(x*10000)
  45. 419 ifa=3thenprint"die rebellen sabotieren ihre anlagen.":gosub689
  46. 429 ifp<1000thengosub899
  47. 439 gosub979:print"[147]":gosub859:print"[147]          stand der ressourcen          ":x=int(rnd(3)*3)+1:ifx=1thengosub509
  48. 449 ifx=2thengosub519
  49. 459 ifx=3thengosub549
  50. 469 gosub979:goto279
  51. 479 print"[147]      sie haben das spiel gewonnen      ":print"die sauerstoffproduktion ist ergiebiger":print"denn je. sie sind von titan nicht mehr":print"abhaengig. sie versorgen nun enceladus,":print"thetys und dione mit ihren rohstoffen."
  52. 489 print"sie haben rheas wirtschaftskapital sowie";:print"ihr eigenes enorm gesteigert. ausserdem":print"haben sie die urspruengliche bevoelke-":print"rungsdichte wieder hergestellt.":print"ob dieses erfolges ernennt man sie zum"
  53. 499 print"praesidenten auf lebenszeit. herzlichen":print"glueckwunsch!":gosub979:run259
  54. 509 print"es ist noch genuegend sauerstoff vorhan-";:print"den.":p=p+2000:m=m+100000:return
  55. 519 u1=int((5*(10^5)*rnd(1))+5*(10^5)):print"es wird ein ueberschuss an sauerstoff":print"produziert, den sie nach dione exportie-";:print"ren. das bringt ihnen"u1"credits":x=-1:print"ein. wieviel prozent davon wollen sie"
  56. 529 input"[145]sich aneignen";x:ifx<0orx>100then529
  57. 539 m=m+int(u1-(u1*x/100)):r=r+int(u1*x/100):return
  58. 549 print"ein leck im tanklager liess fast den ge-";:print"samten sauerstoff entweichen. was geden-";:print"ken sie zu tun?":print"(a) die reparatur finanzieren":print"(b) versuchen, mit den reserven auszu-":print"    kommen":print"(c) sauerstoff von titan importieren"
  59. 559 getc$:ifc$=""then559
  60. 569 ifc$<>"a"andc$<>"b"andc$<>"c"then559
  61. 579 ifc$="a"thenm=m-int(20000*rnd(8)):p=p-int(100*rnd(8))
  62. 589 ifc$="b"thenp=p-int(2000*rnd(8)):m=m-int(rnd(8)*10000)
  63. 599 ifc$="c"thenm=m-int(rnd(3)*400000)
  64. 609 ifm<0thenm=0:gosub899
  65. 619 ifp<100thenp=100
  66. 629 return
  67. 639 m=m-int((10^5)*rnd(1))+10^5:ifi>=p*.8thenprint"sie sind gestuerzt worden. sie haben das";
  68. 649 ifi>=p*.8thenprint"spiel leider verloren.":gosub979:run259
  69. 659 ifrnd(8)<.7thenprint"sie behaupten ihre macht.":gosub979:return
  70. 669 print"aufgrund ihrer tyrannischen regierung":print"werden sie von rhea verbannt.":gosub979:run259:inputx:ifx=0thengosub899
  71. 679 m=m-x*10000:return
  72. 689 print"was gedenken sie zu tun?":print"(a) die sicherheitskraefte verstaerken":print"(b) den sauerstoff fuer verdaechtige":print"    rationieren":print"(c) die angelegenheit ignorieren"
  73. 699 geta$:ifa$=""then699
  74. 709 ifa$<>"a"anda$<>"b"anda$<>"c"then699
  75. 719 ifa$="a"theni=i-int(1000*rnd(2)):m=m-int((10^4*rnd(1))+10^4):ifi<1theni=0
  76. 729 ifa$="c"thenf=f-int(rnd(4)*3000)
  77. 739 ifa$="b"theni=i+int(500*rnd(7))
  78. 749 iff<1thenf=0
  79. 759 return
  80. 769 print"[147]    ihre zeit ist leider abgelaufen!    ":print"sie konnten ihr volk leider nicht zu-":print"friedenstellen. es wird ein neuer prae-":print"sident gewaehlt.":gosub979:run259
  81. 779 print"[147]     der sauerstoff geht zur neige!     ":print"was sollen deine kolonialisten jetzt":print"bloss tun?":print"(a) die luft anhalten":print"(b) du importierst sauerstoff von rhea":print"(c) du steigerst die sauerstoffproduk-":print"    tion"
  82. 789 getb$:ifb$=""then789
  83. 799 ifb$<>"a"andb$<>"b"andb$<>"c"then789
  84. 809 ifb$="a"thengosub899
  85. 819 ifb$="b"thenm=m-p*250
  86. 829 ifb$="c"thenm=m-p*200:p=int(p*.95)
  87. 839 ifm<0thenm=0:gosub899
  88. 849 return
  89. 859 print"[147]   der lagebericht fuer diese periode   [146]":print""l1$;:forx5=1to5:printl3$;l2$;:next:printl3$;l4$:forx5=1to150:next:print"kolonialisten",""p:print"budget",,""m"cr.":print"eigenes vermoegen",""r"cr.":print"sauerstoffeinheiten"f
  90. 869 print"regierungszeit noch"t"perioden":print"rebellen",,""i:gosub979:ifp=>8000andm=>8000000andf>8000andr>1500000then479
  91. 879 iff<1then779
  92. 889 return
  93. 899 print"[147]      eine rebellion bahnt sich an      ":print"was wollen sie unternehmen?":print"(a) rhea verlassen und ins exil gehen":print"(b) den aufsaessigen ihr privates ver-":print"    moegen ueberlassen":print"(c) widerstand leisten"
  94. 909 getd$:ifd$=""then909
  95. 919 ifd$<>"a"andd$<>"b"andd$<>"c"then909
  96. 929 ifd$="a"then969
  97. 939 ifd$="b"thenm=m+r:r=0
  98. 949 ifd$="c"thengosub639
  99. 959 i=i+int(rnd(8)*p/5):return
  100. 969 print"sie koennen entkommen, haben das spiel  jedoch verloren.":gosub979:run259
  101. 979 print"":print"        bitte leertaste druecken       ";:poke2023,160
  102. 989 getao$:ifao$<>" "then989
  103. 999 return
  104. 1009 print"dieses spiel wird vertrieben von":print"b-soft":print"mike witschi und maik holstein":print"henningstr. 13":print"21337 lueneburg":return
  105.